/ EuroCD 3 / EuroCD 3.iso / Programming / BlitzBasic / CATSCrapLib104 / userlibsrc / CATSCrapLib.bb

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3b 00 3b 43 41 54 53 | 20 43 72 61 70 20 4c 69 |.;.;CATS| Crap Li|
|00000010| 62 20 31 2e 30 34 00 3b | 00 3b 48 61 73 20 32 20 |b 1.04.;|.;Has 2 |
|00000020| 73 74 61 74 65 6d 65 6e | 74 73 3a 00 3b 00 3b 42 |statemen|ts:.;.;B|
|00000030| 6c 69 6e 6b 20 3c 6e 75 | 6d 62 65 72 20 6f 66 20 |link <nu|mber of |
|00000040| 62 6c 69 6e 6b 73 3e 20 | 20 20 20 20 20 20 20 20 |blinks> |        |
|00000050| 20 20 20 20 20 20 2d 20 | 41 20 64 65 63 69 64 65 |      - |A decide|
|00000060| 64 6c 79 20 75 73 65 6c | 65 73 73 20 63 6f 6d 6d |dly usel|ess comm|
|00000070| 61 6e 64 20 74 6f 20 62 | 6c 69 6e 6b 20 79 6f 75 |and to b|link you|
|00000080| 72 20 4c 45 44 20 6f 6e | 2f 6f 66 66 00 3b 43 72 |r LED on|/off.;Cr|
|00000090| 61 73 68 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ash     |        |
|000000a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000b0| 20 20 20 20 20 2d 20 43 | 72 61 73 68 65 73 20 74 |     - C|rashes t|
|000000c0| 68 65 20 63 6f 6d 70 75 | 74 65 72 20 3c 47 52 49 |he compu|ter <GRI|
|000000d0| 4e 3e 00 3b 4e 6f 43 72 | 61 73 68 20 3c 4f 6e 2f |N>.;NoCr|ash <On/|
|000000e0| 4f 66 66 3e 20 20 20 20 | 20 20 20 20 20 20 20 20 |Off>    |        |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 2d 20 44 69 73 |        |   - Dis|
|00000100| 61 62 6c 65 73 20 74 68 | 65 20 43 72 61 73 68 20 |ables th|e Crash |
|00000110| 73 74 61 74 65 6d 65 6e | 74 2e 20 20 55 73 65 66 |statemen|t.  Usef|
|00000120| 75 6c 6c 20 69 66 20 79 | 6f 75 27 72 65 20 73 74 |ull if y|ou're st|
|00000130| 69 6c 6c 20 64 65 62 75 | 67 67 69 6e 67 00 3b 00 |ill debu|gging.;.|
|00000140| 3b 41 6e 64 20 61 20 66 | 75 6e 63 74 69 6f 6e 3a |;And a f|unction:|
|00000150| 00 3b 00 3b 77 6f 72 64 | 3d 4c 45 44 53 74 61 74 |.;.;word|=LEDStat|
|00000160| 75 73 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |us      |        |
|00000170| 20 20 20 20 20 20 20 20 | 20 20 20 2d 20 72 65 74 |        |   - ret|
|00000180| 75 72 6e 73 20 2d 31 20 | 69 66 20 74 68 65 20 4c |urns -1 |if the L|
|00000190| 45 44 20 69 73 20 6f 66 | 66 2c 20 30 20 69 66 20 |ED is of|f, 0 if |
|000001a0| 69 74 27 73 20 6f 6e 00 | 3b 00 3b 69 27 6d 20 67 |it's on.|;.;i'm g|
|000001b0| 6f 69 6e 67 20 74 6f 20 | 67 69 76 65 20 6d 79 20 |oing to |give my |
|000001c0| 6c 69 62 72 61 72 79 20 | 74 68 65 20 6e 75 6d 62 |library |the numb|
|000001d0| 65 72 20 31 30 32 2e 2e | 2e 00 00 23 63 61 74 73 |er 102..|...#cats|
|000001e0| 63 72 61 70 6c 69 62 3d | 31 30 32 00 00 3b 2a 2a |craplib=|102..;**|
|000001f0| 2a 2a 2a 20 46 69 72 73 | 74 20 75 70 2c 20 61 20 |*** Firs|t up, a |
|00000200| 68 65 61 64 65 72 20 66 | 6f 72 20 74 68 65 20 6c |header f|or the l|
|00000210| 69 62 72 61 72 79 2e 2e | 2e 20 2a 2a 2a 2a 2a 00 |ibrary..|. *****.|
|00000220| 00 21 6c 69 62 68 65 61 | 64 65 72 7b 23 63 61 74 |.!libhea|der{#cat|
|00000230| 73 63 72 61 70 6c 69 62 | 2c 30 2c 30 2c 30 2c 72 |scraplib|,0,0,0,r|
|00000240| 75 6e 65 72 72 73 7d 00 | 00 3b 2a 2a 2a 2a 2a 20 |unerrs}.|.;***** |
|00000250| 6e 6f 77 2c 20 74 68 65 | 20 61 63 74 75 61 6c 20 |now, the| actual |
|00000260| 63 6f 6d 6d 61 6e 64 73 | 20 69 6e 20 74 68 65 20 |commands| in the |
|00000270| 6c 69 62 72 61 72 79 20 | 2a 2a 2a 2a 2a 00 00 21 |library |*****..!|
|00000280| 61 73 74 61 74 65 6d 65 | 6e 74 00 21 61 72 67 73 |astateme|nt.!args|
|00000290| 7b 23 77 6f 72 64 7d 00 | 21 6c 69 62 73 7b 23 67 |{#word}.|!libs{#g|
|000002a0| 72 61 70 68 69 63 73 6c | 69 62 2c 23 6c 61 36 7d |raphicsl|ib,#la6}|
|000002b0| 00 21 73 75 62 73 7b 64 | 6f 62 6c 69 6e 6b 2c 64 |.!subs{d|oblink,d|
|000002c0| 6f 62 6c 69 6e 6b 63 68 | 65 63 6b 2c 30 7d 00 21 |oblinkch|eck,0}.!|
|000002d0| 6e 61 6d 65 7b 22 42 6c | 69 6e 6b 22 2c 22 3c 6e |name{"Bl|ink","<n|
|000002e0| 75 6d 62 65 72 20 6f 66 | 20 62 6c 69 6e 6b 73 3e |umber of| blinks>|
|000002f0| 20 2d 20 42 6c 69 6e 6b | 73 20 74 68 65 20 4c 45 | - Blink|s the LE|
|00000300| 44 20 3c 6e 3e 20 74 69 | 6d 65 73 22 7d 00 00 21 |D <n> ti|mes"}..!|
|00000310| 61 66 75 6e 63 74 69 6f | 6e 7b 23 77 6f 72 64 7d |afunctio|n{#word}|
|00000320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00000330| 69 6e 64 69 63 61 74 65 | 73 20 74 68 61 74 20 74 |indicate|s that t|
|00000340| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 72 65 74 |his func|tion ret|
|00000350| 75 72 6e 73 20 61 20 77 | 6f 72 64 2e 00 21 61 72 |urns a w|ord..!ar|
|00000360| 67 73 00 21 6c 69 62 73 | 00 21 73 75 62 73 7b 64 |gs.!libs|.!subs{d|
|00000370| 6f 6c 65 64 73 74 61 74 | 75 73 2c 30 2c 30 7d 00 |oledstat|us,0,0}.|
|00000380| 21 6e 61 6d 65 7b 22 4c | 45 44 53 74 61 74 75 73 |!name{"L|EDStatus|
|00000390| 22 2c 22 2d 20 77 6f 72 | 64 3d 4c 45 44 53 74 61 |","- wor|d=LEDSta|
|000003a0| 74 75 73 20 2d 20 72 65 | 74 75 72 6e 73 20 2d 31 |tus - re|turns -1|
|000003b0| 20 69 66 20 4c 45 44 20 | 69 73 20 6f 66 66 2c 20 | if LED |is off, |
|000003c0| 30 20 69 66 20 69 74 27 | 73 20 6f 6e 22 7d 00 00 |0 if it'|s on"}..|
|000003d0| 21 61 73 74 61 74 65 6d | 65 6e 74 00 21 61 72 67 |!astatem|ent.!arg|
|000003e0| 73 00 21 6c 69 62 73 00 | 21 73 75 62 73 7b 64 6f |s.!libs.|!subs{do|
|000003f0| 63 72 61 73 68 2c 64 6f | 63 72 61 73 68 63 68 65 |crash,do|crashche|
|00000400| 63 6b 2c 30 7d 00 21 6e | 61 6d 65 7b 22 43 72 61 |ck,0}.!n|ame{"Cra|
|00000410| 73 68 22 2c 22 2d 20 50 | 72 6f 62 61 62 6c 79 20 |sh","- P|robably |
|00000420| 74 68 65 20 6d 6f 73 74 | 20 75 73 65 66 75 6c 20 |the most| useful |
|00000430| 63 6f 6d 6d 61 6e 64 20 | 45 56 45 52 21 20 3a 29 |command |EVER! :)|
|00000440| 20 28 55 73 65 20 69 74 | 20 34 20 75 6e 72 65 67 | (Use it| 4 unreg|
|00000450| 2e 20 70 72 6f 67 73 20 | 3a 29 22 7d 00 00 21 61 |. progs |:)"}..!a|
|00000460| 73 74 61 74 65 6d 65 6e | 74 00 21 61 72 67 73 7b |statemen|t.!args{|
|00000470| 23 77 6f 72 64 7d 00 21 | 6c 69 62 73 00 21 73 75 |#word}.!|libs.!su|
|00000480| 62 73 7b 64 6f 6e 6f 63 | 72 61 73 68 2c 30 2c 30 |bs{donoc|rash,0,0|
|00000490| 7d 00 21 6e 61 6d 65 7b | 22 4e 6f 43 72 61 73 68 |}.!name{|"NoCrash|
|000004a0| 22 2c 22 3c 4f 6e 2f 4f | 66 66 3e 20 2d 20 44 69 |","<On/O|ff> - Di|
|000004b0| 73 61 62 6c 65 73 20 43 | 72 61 73 68 20 73 74 61 |sables C|rash sta|
|000004c0| 74 65 6d 65 6e 74 20 28 | 75 73 65 20 69 66 20 79 |tement (|use if y|
|000004d0| 6f 75 27 72 65 20 73 74 | 69 6c 6c 20 64 65 62 75 |ou're st|ill debu|
|000004e0| 67 67 69 6e 67 29 22 7d | 00 00 3b 54 68 61 74 27 |gging)"}|..;That'|
|000004f0| 73 20 69 74 21 00 00 21 | 6c 69 62 66 69 6e 00 00 |s it!..!|libfin..|
|00000500| 3b 2a 2a 2a 2a 2a 20 4e | 6f 77 20 63 6f 6d 65 73 |;***** N|ow comes|
|00000510| 20 74 68 65 20 63 6f 64 | 65 20 66 6f 72 20 74 68 | the cod|e for th|
|00000520| 65 20 6c 69 62 72 61 72 | 79 20 2a 2a 2a 2a 2a 00 |e librar|y *****.|
|00000530| 00 2e 64 6f 62 6c 69 6e | 6b 3a 00 3b 00 20 20 80 |..doblin|k:.;.  .|
|00000540| 7e 20 64 30 2c 64 32 3a | 80 48 20 62 6c 69 6e 6b |~ d0,d2:|.H blink|
|00000550| 73 6b 69 70 3a 80 aa 20 | 23 31 2c 64 32 00 62 6c |skip:.. |#1,d2.bl|
|00000560| 69 6e 6b 6c 6f 6f 70 00 | 80 54 20 23 31 2c 24 62 |inkloop.|.T #1,$b|
|00000570| 66 65 30 30 31 3a 80 79 | 20 2d 32 37 30 28 61 36 |fe001:.y| -270(a6|
|00000580| 29 20 20 20 20 3b 63 61 | 6c 6c 20 67 72 61 70 68 |)    ;ca|ll graph|
|00000590| 69 63 73 20 6c 69 62 72 | 61 72 79 20 27 57 61 69 |ics libr|ary 'Wai|
|000005a0| 74 20 74 6f 70 20 6f 66 | 20 66 72 61 6d 65 27 00 |t top of| frame'.|
|000005b0| 80 6e 20 64 32 2c 62 6c | 69 6e 6b 6c 6f 6f 70 00 |.n d2,bl|inkloop.|
|000005c0| 62 6c 69 6e 6b 73 6b 69 | 70 3a 80 94 00 00 2e 64 |blinkski|p:.....d|
|000005d0| 6f 6c 65 64 73 74 61 74 | 75 73 3a 00 3b 00 20 20 |oledstat|us:.;.  |
|000005e0| 80 57 20 23 31 2c 24 62 | 66 65 30 30 31 3a 80 a0 |.W #1,$b|fe001:..|
|000005f0| 20 64 30 3a 80 76 20 64 | 30 3a 80 94 00 00 2e 64 | d0:.v d|0:.....d|
|00000600| 6f 63 72 61 73 68 3a 00 | 3b 00 20 20 80 5c 20 23 |ocrash:.|;.  .\ #|
|00000610| 30 2c 63 72 61 73 68 6f | 66 66 3a 80 50 20 27 63 |0,crasho|ff:.P 'c|
|00000620| 72 61 73 68 73 6b 69 70 | 00 20 20 80 7e 2e 6c 20 |rashskip|.  .~.l |
|00000630| 23 30 2c 34 20 3b 4d 55 | 43 48 20 62 65 74 74 65 |#0,4 ;MU|CH bette|
|00000640| 72 21 00 27 63 72 61 73 | 68 73 6b 69 70 3a 80 94 |r!.'cras|hskip:..|
|00000650| 00 00 2e 64 6f 6e 6f 63 | 72 61 73 68 3a 00 3b 00 |...donoc|rash:.;.|
|00000660| 20 20 80 7e 2e 6c 20 64 | 30 2c 63 72 61 73 68 6f |  .~.l d|0,crasho|
|00000670| 66 66 00 80 94 00 00 63 | 72 61 73 68 6f 66 66 3a |ff.....c|rashoff:|
|00000680| 80 25 2e 6c 20 30 00 00 | 3b 2a 2a 2a 2a 2a 20 4f |.%.l 0..|;***** O|
|00000690| 4b 2c 20 74 69 6d 65 20 | 66 6f 72 20 72 75 6e 74 |K, time |for runt|
|000006a0| 69 6d 65 20 65 72 72 6f | 72 20 63 68 65 63 6b 69 |ime erro|r checki|
|000006b0| 6e 67 20 63 6f 64 65 21 | 20 2a 2a 2a 2a 2a 00 00 |ng code!| *****..|
|000006c0| 2e 72 75 6e 65 72 72 73 | 3a 00 00 2e 64 6f 62 6c |.runerrs|:...dobl|
|000006d0| 69 6e 6b 63 68 65 63 6b | 3a 00 20 20 80 5c 20 23 |inkcheck|:.  .\ #|
|000006e0| 31 30 31 2c 64 30 3a 80 | 46 20 62 6c 69 6e 6b 65 |101,d0:.|F blinke|
|000006f0| 72 72 6f 72 3a 80 94 00 | 00 62 6c 69 6e 6b 65 72 |rror:...|.blinker|
|00000700| 72 6f 72 3a 80 7e 2e 6c | 20 23 62 6c 69 6e 6b 65 |ror:.~.l| #blinke|
|00000710| 72 72 6f 72 74 65 78 74 | 2c 64 30 3a 80 ae 20 23 |rrortext|,d0:.. #|
|00000720| 30 00 00 62 6c 69 6e 6b | 65 72 72 6f 72 74 65 78 |0..blink|errortex|
|00000730| 74 3a 80 25 2e 62 20 22 | 4e 75 6d 62 65 72 20 6f |t:.%.b "|Number o|
|00000740| 66 20 62 6c 69 6e 6b 73 | 20 6d 75 73 74 20 62 65 |f blinks| must be|
|00000750| 20 30 2e 2e 2e 31 30 30 | 22 2c 30 3a 80 27 00 00 | 0...100|",0:.'..|
|00000760| 2e 64 6f 63 72 61 73 68 | 63 68 65 63 6b 3a 20 20 |.docrash|check:  |
|00000770| 3b 57 68 65 6e 20 64 65 | 62 75 67 67 65 72 20 69 |;When de|bugger i|
|00000780| 73 20 6f 6e 2c 20 77 65 | 20 64 6f 6e 27 74 20 61 |s on, we| don't a|
|00000790| 63 74 75 61 6c 6c 79 20 | 77 61 6e 74 20 74 6f 20 |ctually |want to |
|000007a0| 72 75 6e 20 74 68 69 73 | 20 63 6f 6d 6d 61 6e 64 |run this| command|
|000007b0| 20 61 6e 79 6d 6f 72 65 | 00 20 20 80 7e 2e 6c 20 | anymore|.  .~.l |
|000007c0| 23 63 72 61 73 68 65 72 | 72 6f 72 74 65 78 74 2c |#crasher|rortext,|
|000007d0| 64 30 3a 80 ae 20 23 30 | 00 00 63 72 61 73 68 65 |d0:.. #0|..crashe|
|000007e0| 72 72 6f 72 74 65 78 74 | 3a 80 25 2e 62 20 22 2e |rrortext|:.%.b ".|
|000007f0| 2e 2e 20 20 79 6f 75 20 | 6d 69 67 68 74 20 77 61 |..  you |might wa|
|00000800| 6e 74 20 74 6f 20 73 6b | 69 70 20 74 68 69 73 20 |nt to sk|ip this |
|00000810| 3a 29 22 2c 30 3a 80 27 | 00 00 3b 2a 2a 2a 2a 2a |:)",0:.'|..;*****|
|00000820| 20 54 68 61 74 27 73 20 | 61 6c 6c 20 66 6f 72 20 | That's |all for |
|00000830| 6f 75 72 20 6c 69 62 72 | 61 72 79 21 20 2a 2a 2a |our libr|ary! ***|
|00000840| 2a 2a 00 00 80 25 2e 62 | 20 22 24 56 45 52 3a 20 |**...%.b| "$VER: |
|00000850| 43 41 54 20 53 63 72 61 | 70 20 4c 69 62 20 56 31 |CAT Scra|p Lib V1|
|00000860| 2e 30 34 22 2c 30 00 80 | 27 00 00                |.04",0..|'..     |
+--------+-------------------------+-------------------------+--------+--------+